home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.06 Jun 89 / HyperArrays ƒ / HYPER array / WN⁄putdata.p < prev   
Unknown  |  1989-04-24  |  2.0 KB  |  [nX^d/nX^n]
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert ZX81 Sinclair BASIC (image/sinclairBASIC) ext Supported
100% file data default


id metadata
keyvalue
macFileType[nX^d]
macFileCreator[nX^n]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 04 00 06 9a 04 00 06 a8 |........|........|
|00000010| 04 00 06 b6 04 00 07 32 | 04 00 06 b8 00 00 00 00 |.......2|........|
|00000020| 00 03 00 d8 00 03 01 3c | 00 00 00 00 00 00 00 00 |.......<|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 09 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 14 |........|........|
|00000050| 00 00 00 95 01 f6 00 00 | 00 00 00 3d 00 00 00 00 |........|...=....|
|00000060| 00 00 00 00 00 3d 00 00 | 00 00 00 00 00 00 00 00 |.....=..|........|
|00000070| 00 00 00 00 00 00 01 01 | 02 64 00 00 00 48 00 48 |........|.d...H.H|
|00000080| 00 01 00 18 03 18 02 64 | 00 1f 00 1e 02 f9 02 46 |.......d|.......F|
|00000090| 00 64 00 00 00 00 04 00 | 02 00 00 08 80 00 00 00 |.d......|........|
|000000a0| 00 00 04 00 02 00 00 08 | 80 00 00 00 00 00 ff ff |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 07 3a 00 00 07 3a 00 00 | 07 3a 00 00 87 3a 00 00 |.:...:..|.:...:..|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 04 00 06 9a | 04 00 06 a8 04 00 06 b6 |........|........|
|00000110| 04 00 07 32 04 00 06 b8 | 00 00 00 00 00 03 00 d8 |...2....|........|
|00000120| 00 03 01 3c 00 00 00 00 | 00 00 00 00 00 00 00 00 |...<....|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 09 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 14 00 00 00 95 |........|........|
|00000150| 01 f6 00 00 00 00 00 3d | 00 00 00 00 00 00 00 00 |.......=|........|
|00000160| 00 3d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.=......|........|
|00000170| 00 00 01 01 02 64 00 00 | 00 48 00 48 00 01 00 18 |.....d..|.H.H....|
|00000180| 03 18 02 64 00 1f 00 1e | 02 f9 02 46 00 64 00 00 |...d....|...F.d..|
|00000190| 00 00 04 00 02 00 00 08 | 80 00 00 00 00 00 04 00 |........|........|
|000001a0| 02 00 00 08 80 00 00 00 | 00 00 ff ff 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 07 3a 00 00 |........|.....:..|
|000001c0| 07 3a 00 00 07 3a 00 00 | 87 3a 00 00 00 00 00 00 |.:...:..|.:......|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 04 0c ff 00 03 0c 00 f7 | 0d 75 6e 69 74 20 70 75 |........|.unit pu|
|00000210| 74 64 61 74 61 58 63 6d | 64 3b 0d 69 6e 74 65 72 |tdataXcm|d;.inter|
|00000220| 66 61 63 65 0d 09 09 75 | 73 65 73 20 4d 65 6d 54 |face...u|ses MemT|
|00000230| 79 70 65 73 2c 20 51 75 | 69 63 6b 44 72 61 77 2c |ypes, Qu|ickDraw,|
|00000240| 20 4f 53 49 6e 74 66 2c | 20 54 6f 6f 6c 49 6e 74 | OSIntf,| ToolInt|
|00000250| 66 2c 20 50 61 63 6b 49 | 6e 74 66 2c 20 48 79 70 |f, PackI|ntf, Hyp|
|00000260| 65 72 58 43 4d 44 2c 20 | 51 44 41 63 63 65 73 73 |erXCMD, |QDAccess|
|00000270| 3b 0d 70 72 6f 63 65 64 | 75 72 65 20 70 75 74 64 |;.proced|ure putd|
|00000280| 61 74 61 28 50 61 72 61 | 6d 50 74 72 3a 20 58 43 |ata(Para|mPtr: XC|
|00000290| 4d 44 50 74 72 29 3b 0d | 69 6d 70 6c 65 6d 65 6e |MDPtr);.|implemen|
|000002a0| 74 61 74 69 6f 6e 0d 09 | 74 79 70 65 0d 09 09 74 |tation..|type...t|
|000002b0| 69 6d 65 44 61 72 72 61 | 79 3d 61 72 72 61 79 5b |imeDarra|y=array[|
|000002c0| 30 2e 2e 35 39 5d 20 6f | 66 20 69 6e 74 65 67 65 |0..59] o|f intege|
|000002d0| 72 3b 0d 09 09 09 0d 70 | 72 6f 63 65 64 75 72 65 |r;.....p|rocedure|
|000002e0| 20 61 72 72 61 79 72 73 | 63 28 50 61 72 61 6d 50 | arrayrs|c(ParamP|
|000002f0| 74 72 3a 20 58 43 4d 44 | 50 74 72 29 3b 66 6f 72 |tr: XCMD|Ptr);for|
|00000300| 77 61 72 64 3b 0d 70 72 | 6f 63 65 64 75 72 65 20 |ward;.pr|ocedure |
|00000310| 70 75 74 64 61 74 61 28 | 70 61 72 61 6d 70 74 72 |putdata(|paramptr|
|00000320| 3a 78 63 6d 64 70 74 72 | 29 3b 0d 09 62 65 67 69 |:xcmdptr|);..begi|
|00000330| 6e 0d 09 09 61 72 72 61 | 79 72 73 63 28 70 61 72 |n...arra|yrsc(par|
|00000340| 61 6d 70 74 72 29 3b 0d | 09 65 6e 64 3b 0d 0d 70 |amptr);.|.end;..p|
|00000350| 72 6f 63 65 64 75 72 65 | 20 61 72 72 61 79 72 73 |rocedure| arrayrs|
|00000360| 63 28 50 61 72 61 6d 50 | 74 72 3a 20 58 43 4d 44 |c(ParamP|tr: XCMD|
|00000370| 50 74 72 29 3b 0d 76 61 | 72 0d 09 09 4d 59 54 49 |Ptr);.va|r...MYTI|
|00000380| 4d 45 48 41 4e 44 3a 48 | 41 4e 44 4c 45 3b 0d 09 |MEHAND:H|ANDLE;..|
|00000390| 09 52 45 46 4e 55 4d 3a | 49 4e 54 45 47 45 52 3b |.REFNUM:|INTEGER;|
|000003a0| 0d 09 09 54 49 4d 45 41 | 52 52 41 59 3a 54 49 4d |...TIMEA|RRAY:TIM|
|000003b0| 45 44 41 52 52 41 59 3b | 0d 09 09 74 65 6d 70 68 |EDARRAY;|...temph|
|000003c0| 61 6e 64 6c 65 3a 68 61 | 6e 64 6c 65 3b 0d 09 09 |andle:ha|ndle;...|
|000003d0| 74 65 6d 70 73 74 72 3a | 73 74 72 32 35 35 3b 0d |tempstr:|str255;.|
|000003e0| 09 09 68 6f 72 69 7a 2c | 76 65 72 74 3a 6c 6f 6e |..horiz,|vert:lon|
|000003f0| 67 69 6e 74 3b 0d 0d 70 | 72 6f 63 65 64 75 72 65 |gint;..p|rocedure|
|00000400| 20 67 65 74 70 6f 69 6e | 74 73 28 70 61 72 61 6d | getpoin|ts(param|
|00000410| 70 74 72 3a 78 63 6d 64 | 70 74 72 3b 76 61 72 20 |ptr:xcmd|ptr;var |
|00000420| 68 6f 72 69 7a 2c 76 65 | 72 74 3a 6c 6f 6e 67 69 |horiz,ve|rt:longi|
|00000430| 6e 74 29 3b 0d 62 65 67 | 69 6e 0d 09 7a 65 72 6f |nt);.beg|in..zero|
|00000440| 74 6f 70 61 73 28 70 61 | 72 61 6d 70 74 72 2c 70 |topas(pa|ramptr,p|
|00000450| 61 72 61 6d 70 74 72 5e | 2e 70 61 72 61 6d 73 5b |aramptr^|.params[|
|00000460| 31 5d 5e 2c 74 65 6d 70 | 73 74 72 29 3b 0d 09 68 |1]^,temp|str);..h|
|00000470| 6f 72 69 7a 3a 3d 73 74 | 72 74 6f 6e 75 6d 28 70 |oriz:=st|rtonum(p|
|00000480| 61 72 61 6d 70 74 72 2c | 74 65 6d 70 73 74 72 29 |aramptr,|tempstr)|
|00000490| 3b 0d 09 7a 65 72 6f 74 | 6f 70 61 73 28 70 61 72 |;..zerot|opas(par|
|000004a0| 61 6d 70 74 72 2c 70 61 | 72 61 6d 70 74 72 5e 2e |amptr,pa|ramptr^.|
|000004b0| 70 61 72 61 6d 73 5b 32 | 5d 5e 2c 74 65 6d 70 73 |params[2|]^,temps|
|000004c0| 74 72 29 3b 0d 09 76 65 | 72 74 3a 3d 73 74 72 74 |tr);..ve|rt:=strt|
|000004d0| 6f 6e 75 6d 28 70 61 72 | 61 6d 70 74 72 2c 74 65 |onum(par|amptr,te|
|000004e0| 6d 70 73 74 72 29 3b 0d | 65 6e 64 3b 0d 09 62 65 |mpstr);.|end;..be|
|000004f0| 67 69 6e 0d 09 4d 59 54 | 49 4d 45 48 41 4e 44 3a |gin..MYT|IMEHAND:|
|00000500| 3d 28 47 45 54 52 45 53 | 4f 55 52 43 45 28 27 41 |=(GETRES|OURCE('A|
|00000510| 4e 45 53 27 2c 31 30 30 | 35 29 29 3b 0d 09 48 4c |NES',100|5));..HL|
|00000520| 4f 43 4b 28 4d 59 54 49 | 4d 45 48 41 4e 44 29 3b |OCK(MYTI|MEHAND);|
|00000530| 0d 09 42 4c 4f 43 4b 4d | 4f 56 45 28 4d 59 54 49 |..BLOCKM|OVE(MYTI|
|00000540| 4d 45 48 41 4e 44 5e 2c | 40 54 49 4d 45 41 52 52 |MEHAND^,|@TIMEARR|
|00000550| 41 59 2c 53 49 5a 45 4f | 46 28 54 49 4d 45 41 52 |AY,SIZEO|F(TIMEAR|
|00000560| 52 41 59 29 29 3b 0d 09 | 67 65 74 70 6f 69 6e 74 |RAY));..|getpoint|
|00000570| 73 28 70 61 72 61 6d 70 | 74 72 2c 68 6f 72 69 7a |s(paramp|tr,horiz|
|00000580| 2c 76 65 72 74 29 3b 0d | 09 69 66 20 28 68 6f 72 |,vert);.|.if (hor|
|00000590| 69 7a 20 3c 20 30 29 20 | 6f 72 20 20 28 68 6f 72 |iz < 0) |or  (hor|
|000005a0| 69 7a 20 3e 20 35 39 29 | 20 74 68 65 6e 20 0d 09 |iz > 59)| then ..|
|000005b0| 68 6f 72 69 7a 20 3a 3d | 20 35 39 3b 0d 09 74 69 |horiz :=| 59;..ti|
|000005c0| 6d 65 61 72 72 61 79 5b | 68 6f 72 69 7a 5d 20 3a |mearray[|horiz] :|
|000005d0| 3d 20 76 65 72 74 3b 0d | 09 42 4c 4f 43 4b 4d 4f |= vert;.|.BLOCKMO|
|000005e0| 56 45 28 40 54 49 4d 45 | 41 52 52 41 59 2c 4d 59 |VE(@TIME|ARRAY,MY|
|000005f0| 54 49 4d 45 48 41 4e 44 | 5e 2c 53 49 5a 45 4f 46 |TIMEHAND|^,SIZEOF|
|00000600| 28 54 49 4d 45 41 52 52 | 41 59 29 29 3b 0d 00 7e |(TIMEARR|AY));..~|
|00000610| ff 00 03 0c 00 f7 09 52 | 45 46 4e 55 4d 3a 3d 43 |.......R|EFNUM:=C|
|00000620| 55 52 52 45 53 46 49 4c | 45 3b 0d 09 63 68 61 6e |URRESFIL|E;..chan|
|00000630| 67 65 64 72 65 73 6f 75 | 72 63 65 28 6d 79 74 69 |gedresou|rce(myti|
|00000640| 6d 65 68 61 6e 64 29 3b | 0d 09 77 72 69 74 65 72 |mehand);|..writer|
|00000650| 65 73 6f 75 72 63 65 28 | 6d 79 74 69 6d 65 68 61 |esource(|mytimeha|
|00000660| 6e 64 29 3b 0d 09 72 65 | 6c 65 61 73 65 72 65 73 |nd);..re|leaseres|
|00000670| 6f 75 72 63 65 28 6d 79 | 74 69 6d 65 68 61 6e 64 |ource(my|timehand|
|00000680| 29 3b 0d 09 65 6e 64 3b | 0d 65 6e 64 2e 0d 00 04 |);..end;|.end....|
|00000690| 0d 0d 0d 0d 00 04 0d 0d | 0d 0d 00 0c 24 00 02 00 |........|....$...|
|000006a0| 04 92 24 00 06 0e 00 a5 | 00 0c 04 00 06 8e 00 3c |..$.....|.......<|
|000006b0| 04 00 06 94 00 3c 00 00 | 00 78 00 03 00 00 00 48 |.....<..|.x.....H|
|000006c0| 00 48 00 00 00 00 02 da | 02 28 ff e1 ff e2 02 f9 |.H......|.(......|
|000006d0| 02 46 03 47 05 28 03 fc | 00 02 00 00 00 48 00 48 |.F.G.(..|.....H.H|
|000006e0| 00 00 00 00 02 da 02 28 | 00 01 00 00 00 64 00 00 |.......(|.....d..|
|000006f0| 00 01 00 01 01 01 00 00 | 00 01 27 0f 00 01 00 01 |........|..'.....|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 02 00 19 |........|........|
|00000710| 01 90 00 00 00 00 00 40 | 00 00 00 00 00 00 00 00 |.......@|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 06 00 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+